home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGOSRC.ARC / POGODIS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1985-11-20  |  2.9 KB  |  205 lines
  1.  
  2. /* pogodis.c - The pogo dis-assembler.  Prints out the virtual machine
  3.    code our little pogo compiler produced.  For debugging purposes. */
  4.  
  5. #include <stdio.h>
  6. #include "pogo.h"
  7.  
  8. extern int active_frame;
  9. extern struct func_frame *strace[RMAX];
  10.  
  11.  
  12. char *op_names[] = {
  13. "OP_CON",
  14. "OP_VAR",
  15. "OP_ADD",
  16. "OP_SUB",
  17. "OP_DIV",
  18. "OP_MUL",
  19. "OP_NEG",
  20. "OP_ASSIGN",
  21. "OP_SPAWN",
  22. "OP_CBRA",
  23. "OP_BRA",
  24. "OP_EQ",
  25. "OP_NE",
  26. "OP_LT",
  27. "OP_GT",
  28. "OP_END",
  29. "OP_FUN",
  30. "OP_EVOLVE",
  31. "OP_MOD",
  32. "OP_BAND",
  33. "OP_BOR",
  34. "OP_BXOR",
  35. "OP_BNOT",
  36. "OP_CALL",
  37. "OP_LNOT",
  38. "OP_LE",
  39. "OP_GE",
  40. "OP_RSHIFT",
  41. "OP_LSHIFT",
  42. "OP_LAND",
  43. "OP_LOR",
  44. "OP_RETRIEVE",
  45. "OP_LVAR",
  46. "OP_LASSIGN",
  47. "OP_ARR",
  48. "OP_LARR",
  49. "OP_AASSIGN",
  50. "OP_LAASSIGN",
  51. "OP_CHECK",
  52. "OP_MOVES",
  53. "OP_PREDEF",
  54. "OP_KILL",
  55. "OP_PCALL",
  56. "OP_PREDEFL",
  57. "OP_PPREDEF",
  58. "OP_CHECKTYPE",
  59. "OP_STATEMENT",
  60. "OP_SVAR",
  61. "OP_LSVAR",
  62. "OP_SARR",
  63. "OP_LSARR",
  64. "OP_SASSIGN",
  65. "OP_LSASSIGN",
  66. "OP_ASASSIGN",
  67. "OP_LASASSIGN",
  68. "OP_FREES",
  69. "OP_CSASSIGN",
  70. "OP_CASASSIGN",
  71. "OP_CALLS",
  72. };
  73.  
  74. Names *source_lines;
  75. Names *source_tail;
  76.  
  77. extern char *pget_line();
  78. extern char line_buf[SZTOKE];
  79.  
  80. read_source()
  81. {
  82. Names *ns;
  83.  
  84. if (!open_pogo_file(title))
  85.     quit();
  86. if ((ns = beg_mem(sizeof(*ns))) == NULL)
  87.     quit();
  88. source_lines = source_tail = ns;
  89. ns->next = NULL;
  90. ns->name = clone_string("");
  91. while (pget_line(line_buf, sizeof(line_buf)) != NULL)
  92.     {
  93.     if ((ns = beg_mem(sizeof(*ns))) == NULL)
  94.         quit();
  95.     ns->next = NULL;
  96.     ns->name = clone_string(line_buf);
  97.     source_tail = source_tail->next = ns;
  98.     }
  99. close_pogo_file();
  100. }
  101.  
  102. free_source()
  103. {
  104. Names *next;
  105.  
  106. while (source_lines != NULL)
  107.     {
  108.     next = source_lines->next;
  109.     freemem(source_lines->name);
  110.     freemem(source_lines);
  111.     source_lines = next;
  112.     }
  113. source_tail = NULL;
  114. }
  115.  
  116.  
  117.  
  118. Names *
  119. name_ix(ix)
  120. int ix;
  121. {
  122. Names *s;
  123.  
  124. s = source_lines;
  125. while (--ix >= 0)
  126.     {
  127.     s = s->next;
  128.     if (s == NULL)
  129.         break;
  130.     }
  131. return(s);
  132. }
  133.  
  134. print_statement(s)
  135. Statement *s;
  136. {
  137. Names *n;
  138.  
  139. if ((n = name_ix(s->line_pos)) != NULL)
  140.     printf("%s %d:\t%s", title, s->line_pos, n->name);
  141. }
  142.  
  143.  
  144.  
  145. pogo_dis(code, count)
  146. struct pogo_op *code;
  147. int count;
  148. {
  149. int i;
  150.  
  151. for (i=0; i<count; i++)
  152.     {
  153.     if (code->type == OP_STATEMENT)
  154.         {
  155.         print_statement(code->data.p);
  156.         }
  157.     else
  158.         {
  159.         printf("\t%x %12s %8lx %d\n", i, op_names[code->type], code->data.p,
  160.             code->data.i);
  161.         }
  162.     code++;
  163.     }
  164. }
  165.  
  166. dump_code()
  167. {
  168. struct func_frame *f;
  169.  
  170. read_source();
  171.  
  172. f = ff_list;
  173. while (f != NULL)
  174.     {
  175.     puts(f->name);
  176.     pogo_dis(f->code, f->code_size);
  177.     puts("");
  178.     f = f->next;
  179.     }
  180. free_source();
  181. }
  182.  
  183. #define SLIM 40
  184.  
  185. print_last_statement(code)
  186. struct pogo_op *code;
  187. {
  188. struct func_frame *cfuf;
  189. struct pogo_op *cbegin;
  190.  
  191. read_source();
  192. cfuf = strace[active_frame-1];
  193. cbegin = cfuf->code;
  194. while (--code >= cbegin)
  195.     {
  196.     if (code->type == OP_STATEMENT)
  197.         {
  198.         print_statement(code->data.p);
  199.         break;
  200.         }
  201.     }
  202. free_source();
  203. }
  204.  
  205.